inherited FRM_PesquisaFormaFarmaceutica: TFRM_PesquisaFormaFarmaceutica
  Left = 371
  Top = 221
  ClientWidth = 479
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  inherited gbPadrao: TAdvGroupBox
    Width = 479
    inherited edtPesquisar: TAdvEdit
      Width = 472
      OnKeyDown = edtPesquisarKeyDown
    end
    inherited GridPesquisar: TJvDBGrid
      Width = 473
      Columns = <
        item
          Expanded = False
          FieldName = 'DESCRICAO'
          Title.Alignment = taCenter
          Title.Caption = 'Descri'#231#227'o das Formas Farmac'#234'uticas'
          Width = 236
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GRUPO_FF'
          Title.Alignment = taCenter
          Title.Caption = 'Grupo'
          Width = 78
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CATEGORIA_FF'
          Title.Alignment = taCenter
          Title.Caption = 'Categoria'
          Width = 88
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'VALIDADE'
          Title.Alignment = taCenter
          Title.Caption = 'Validade'
          Width = 55
          Visible = True
        end>
    end
    inherited pnlRodape: TPanel
      Width = 473
      inherited btnConfirmar: TAdvGlowButton
        Left = 312
      end
      inherited btnCancelar: TAdvGlowButton
        Left = 397
      end
    end
    inherited pnlTitulo: TPanel
      Width = 473
      Caption = 'Pesquisar Lista de Formas Farmac'#234'uticas'
    end
  end
  inherited sqlPesquisar: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'empresa'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  f.cod_forma,'
      '  f.descricao,'
      '  f.grupo_ff,'
      '  f.categoria_ff,'
      '  f.validade ||'#39' dias'#39' as validade,'
      '  b.cod_involucro_tipo,'
      '  b.descricao as involucro_tipo'
      'from f_forma_farmaceutica f'
      
        'left join f_forma_multiempresa a on (a.lig_cod_forma = f.cod_for' +
        'ma)'
      
        'left join f_involucro_tipo b on (b.cod_involucro_tipo = f.lig_co' +
        'd_involucro_tipo)'
      'where a.lig_cod_empresa = :empresa and f.cod_forma > 0'
      'order by f.descricao')
  end
  inherited cdsPesquisar: TClientDataSet
    object cdsPesquisarCOD_FORMA: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_FORMA'
      Required = True
    end
    object cdsPesquisarDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsPesquisarGRUPO_FF: TStringField
      Alignment = taCenter
      FieldName = 'GRUPO_FF'
      Size = 50
    end
    object cdsPesquisarCATEGORIA_FF: TStringField
      Alignment = taCenter
      FieldName = 'CATEGORIA_FF'
      Size = 50
    end
    object cdsPesquisarVALIDADE: TStringField
      Alignment = taRightJustify
      FieldName = 'VALIDADE'
      Size = 16
    end
    object cdsPesquisarINVOLUCRO_TIPO: TStringField
      FieldName = 'INVOLUCRO_TIPO'
      Size = 100
    end
    object cdsPesquisarCOD_INVOLUCRO_TIPO: TIntegerField
      FieldName = 'COD_INVOLUCRO_TIPO'
    end
  end
end
